Option Explicit
 
Sub ExportCharts()
    ' Export all charts from the WorkBook
    Const sSlash$ = "\"
    Const sFolder$ = "imgs"
    Const sPicType$ = ".png"
    Dim sPath$
    Dim sFile$
    Dim objSheet As Worksheet
    Dim objChart As ChartObject
    Dim I, J, chartCount, sheetCount  As Integer
     
    sPath = ActiveWorkbook.Path & sSlash & sFolder & sSlash
    sheetCount = ThisWorkbook.Sheets.Count
    For I = 1 To sheetCount Step 1
      Set objSheet = ActiveWorkbook.Sheets(I)
      objSheet.Activate
      chartCount = ActiveSheet.ChartObjects.Count
      For J = 1 To chartCount Step 1
        Set objChart = ActiveSheet.ChartObjects(J)
        objChart.Activate
        sFile = sPath & objChart.Name & sPicType
        ActiveChart.Export Filename:=sFile, FilterName:="PNG"
      Next J
    Next I
End Sub
